* APPENDIX E 

* ESTIMATION RDD VARYING BANDWITHS


** OPEN STATA 14 ***


use "POLITICAL EMANCIPATION -- POLAND DATA SET.dta", clear

global covariates "jewishpop"


* No Z schools

rdrobust zionschoolsno_any distance if type=="ville", covs($covariates) kernel(triangular) p(1) bwselect(mserd) all

rdrobust zionschoolsno_any distance if type=="ville", covs($covariates) kernel(triangular) p(1) h(100000) all

rdrobust zionschoolsno_any distance if type=="ville", covs($covariates) kernel(triangular) p(1) h(75000) all

rdrobust zionschoolsno_any distance if type=="ville", covs($covariates) kernel(triangular) p(1) h(50000) all

rdrobust zionschoolsno_any distance if type=="ville", covs($covariates) kernel(triangular) p(1) h(25000)  all

* Z per Capita

rdrobust capzionschoolsno_any distance if type=="ville", kernel(triangular) p(1) bwselect(mserd) all

rdrobust capzionschoolsno_any distance if type=="ville", kernel(triangular) p(1) h(100000) all

rdrobust capzionschoolsno_any distance if type=="ville", kernel(triangular) p(1) h(75000) all

rdrobust capzionschoolsno_any distance if type=="ville", kernel(triangular) p(1) h(50000) all

rdrobust capzionschoolsno_any distance if type=="ville", kernel(triangular) p(1) h(25000) all


* No Z Schools -- Census 

rdrobust max_zschools distance if jewishpop>100, covs($covariates) kernel(triangular) p(1) bwselect(mserd) all

rdrobust max_zschools distance if jewishpop>100, covs($covariates) kernel(triangular) p(1) h(100000) all

rdrobust max_zschools distance if jewishpop>100, covs($covariates) kernel(triangular) p(1) h(75000) all

rdrobust max_zschools distance if jewishpop>100, covs($covariates) kernel(triangular) p(1) h(50000) all

rdrobust max_zschools distance if jewishpop>100, covs($covariates) kernel(triangular) p(1) h(25000) all


* Z Schools per Capita -- Census

rdrobust capmax_zschools_census distance if jewishpop>100, kernel(triangular) p(1) bwselect(mserd) all

rdrobust capmax_zschools_census distance if jewishpop>100, kernel(triangular) p(1) h(100000) all

rdrobust capmax_zschools_census distance if jewishpop>100, kernel(triangular) p(1) h(75000) all

rdrobust capmax_zschools_census distance if jewishpop>100, kernel(triangular) p(1) h(50000) all

rdrobust capmax_zschools_census distance if jewishpop>100, kernel(triangular) p(1) h(25000) all



* Number of Jewish Schools -- All Towns

rdrobust jewishschoolsno_any distance if type=="ville", covs($covariates) kernel(triangular) p(1) bwselect(mserd) all
 
rdrobust jewishschoolsno_any distance if type=="ville", covs($covariates) kernel(triangular) p(1) h(100000) all

rdrobust jewishschoolsno_any distance if type=="ville", covs($covariates) kernel(triangular) p(1) h(75000) all

rdrobust jewishschoolsno_any distance if type=="ville", covs($covariates) kernel(triangular) p(1) h(50000) all

rdrobust jewishschoolsno_any distance if type=="ville", covs($covariates) kernel(triangular) p(1) h(25000) all


* Jewish Schools per 1,000 Jews -- All Towns

rdrobust capjewishschoolsno_any distance if type=="ville", kernel(triangular) p(1) bwselect(mserd) all
 
rdrobust capjewishschoolsno_any distance if type=="ville", kernel(triangular) p(1) h(100000) all

rdrobust capjewishschoolsno_any distance if type=="ville", kernel(triangular) p(1) h(75000) all

rdrobust capjewishschoolsno_any distance if type=="ville", kernel(triangular) p(1) h(50000) all

rdrobust capjewishschoolsno_any distance if type=="ville", kernel(triangular) p(1) h(25000) all



* Number Schools in Hebrew (all or some)

rdrobust max_somehebrew distance, covs($covariates) kernel(triangular) p(1) bwselect(mserd) all

rdrobust max_somehebrew distance, covs($covariates) kernel(triangular) p(1) h(100000) all

rdrobust max_somehebrew distance, covs($covariates) kernel(triangular) p(1) h(75000) all

rdrobust max_somehebrew distance, covs($covariates) kernel(triangular) p(1) h(50000) all

rdrobust max_somehebrew distance, covs($covariates) kernel(triangular) p(1) h(25000) all


* Number Schools in Hebrew (all or some) in localities with Jews>100


rdrobust max_somehebrew distance if jewishpop>100, covs($covariates) kernel(triangular) p(1) bwselect(mserd) all

rdrobust max_somehebrew distance if jewishpop>100, covs($covariates) kernel(triangular) p(1) h(100000) all

rdrobust max_somehebrew distance if jewishpop>100, covs($covariates) kernel(triangular) p(1) h(75000) all

rdrobust max_somehebrew distance if jewishpop>100, covs($covariates) kernel(triangular) p(1) h(50000) all

rdrobust max_somehebrew distance if jewishpop>100, covs($covariates) kernel(triangular) p(1) h(25000) all



* Number Schools in Hebrew (all or some) -- Towns

rdrobust max_somehebrew distance if type=="ville", covs($covariates) kernel(triangular) p(1) bwselect(mserd) all

rdrobust max_somehebrew distance if type=="ville", covs($covariates) kernel(triangular) p(1) h(100000) all

rdrobust max_somehebrew distance if type=="ville", covs($covariates) kernel(triangular) p(1) h(75000) all

rdrobust max_somehebrew distance if type=="ville", covs($covariates) kernel(triangular) p(1) h(50000) all

rdrobust max_somehebrew distance if type=="ville", covs($covariates) kernel(triangular) p(1) h(25000) all


* Per Capita Schools in Hebrew -- Towns

rdrobust cap_maxsomehebrew distance if type=="ville", kernel(triangular) p(1) bwselect(mserd) all

rdrobust cap_maxsomehebrew distance if type=="ville", kernel(triangular) p(1) h(100000) all

rdrobust cap_maxsomehebrew distance if type=="ville", kernel(triangular) p(1) h(75000) all

rdrobust cap_maxsomehebrew distance if type=="ville", kernel(triangular) p(1) h(50000) all

rdrobust cap_maxsomehebrew distance if type=="ville", kernel(triangular) p(1) h(25000) all

